home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
BARCOD.ZIP
/
SAMPLE.ARJ
/
BSAMPLE.FRM
next >
Wrap
Text File
|
1993-09-24
|
2KB
|
96 lines
VERSION 2.00
Begin Form Form1
Caption = "Form1"
ClientHeight = 3750
ClientLeft = 1170
ClientTop = 1890
ClientWidth = 3975
Height = 4155
Left = 1110
LinkTopic = "Form1"
ScaleHeight = 3750
ScaleWidth = 3975
Top = 1545
Width = 4095
Begin ComboBox Combo1
Height = 300
Left = 240
Style = 2 'Dropdown List
TabIndex = 4
Top = 1920
Width = 3495
End
Begin TextBox Text1
Height = 285
Left = 960
TabIndex = 0
Text = "SAMPLE"
Top = 960
Width = 2775
End
Begin Barcode Barcode1
BarWidth = 0
Caption = "Barcode1"
Direction = 0 'Left to Right
Height = 495
Left = 240
Style = 3 '3 of 9
Top = 240
Width = 3495
End
Begin Label Label3
BorderStyle = 1 'Fixed Single
Caption = "SAMPLE"
Height = 285
Left = 960
TabIndex = 3
Top = 1440
Width = 2775
End
Begin Label Label2
Caption = "Output:"
Height = 255
Left = 240
TabIndex = 2
Top = 1440
Width = 735
End
Begin Label Label1
Caption = "Input:"
Height = 255
Left = 240
TabIndex = 1
Top = 960
Width = 735
End
End
Option Explicit
Sub Combo1_Change ()
Barcode1.Style = Combo1.ListIndex
Label3.Caption = Barcode1.Displayed
End Sub
Sub Combo1_Click ()
Combo1_Change
End Sub
Sub Form_Load ()
Combo1.AddItem "None"
Combo1.AddItem "2 of 5"
Combo1.AddItem "Interleaved 2 of 5"
Combo1.AddItem "3 of 9"
Combo1.AddItem "Codabar (Rationalized)"
Combo1.ListIndex = 3
Text1_Change
End Sub
Sub Text1_Change ()
Barcode1.Caption = Text1
DoEvents
Label3.Caption = Barcode1.Displayed
End Sub